home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / FileMover / Dopus5 / Dopus511D.lha / LhADirOpus5V10.lha / LhADir / Install LhADir < prev    next >
Encoding:
Text File  |  1995-06-22  |  1.8 KB  |  78 lines
  1. ; $VER: Install LhADir 1.0 (27.5.95)
  2. ; Script to install LhADir.dopus5 1.0.
  3. ; Written by Edmund Vermeulen.
  4.  
  5. ;=============================================================================
  6. ; check if Directory Opus 5 is already installed
  7.  
  8. (if (not (exists "DOpus5:DirectoryOpus" (noreq)))
  9.     (abort "Directory Opus 5 muß installiert sein.")
  10. )
  11.  
  12. ;=============================================================================
  13. ; copy the files
  14.  
  15. (set @default-dest "DOpus5:arexx")
  16.  
  17. (copyfiles
  18.    (source "arexx")
  19.    (dest @default-dest)
  20.    (pattern "#?")
  21.    (files)
  22. )
  23.  
  24. (copyfiles
  25.    (source "filetypes/LHA archive")
  26.    (dest "DOpus5:filetypes")
  27.    (infos)
  28. )
  29.  
  30. (copyfiles
  31.    (source "buttons/LhADir Buttons")
  32.    (dest "DOpus5:buttons")
  33. )
  34.  
  35. (if
  36.    (askbool
  37.       (prompt "LhADir Werkzeugleiste installieren?\n\n"
  38.               "Ihre aktuelle Werkzeugleiste wird umbenannt in 'toolbar_old'."
  39.       )
  40.       (help "Durch die Installation der LhADir Werkzeugleiste können "
  41.             "Sie die Knöpfe der Werkzeugleiste des Dateilisters für "
  42.             "normale Verzeichnisse und für von LhADir gelistete "
  43.             "Verzeichnisse verwenden.\n\n"
  44.             "Die LhADir Werkzeugleiste hat diesselben Funktionen "
  45.             "wie die standardmäßige Werkzeugleiste."
  46.       )
  47.    )
  48.    (
  49.       (rename "DOpus5:buttons/toolbar" "DOpus5:buttons/toolbar_old")
  50.       (copyfiles
  51.          (source "buttons/toolbar_LhADir")
  52.          (dest "DOpus5:buttons")
  53.          (newname "toolbar")
  54.       )
  55.    )
  56. )
  57.  
  58. ;=============================================================================
  59. ; install catalogs
  60.  
  61. (set catalogs
  62.    (askoptions
  63.       (prompt "Gewählte Kataloge installieren?")
  64.       (help @askoptions-help)
  65.       (choices "Deutsch")
  66.       (default 0)
  67.    )
  68. )
  69.  
  70. (if (in catalogs 0)
  71.    (copyfiles
  72.       (source "Locale/Catalogs/deutsch/LhADir.catalog")
  73.       (dest "LOCALE:Catalogs/deutsch")
  74.    )
  75. )
  76.  
  77. (exit)
  78.